home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 29 / Commodore_Disc_29_19xx_-_de.d64 / lader kreuzungen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  5.2 KB  |  215 lines
  1. 8000 rem lader kreuzungen =====c64
  2. 8010 rem (p) commodore welt team =
  3. 8020 rem =========================
  4. 8030 rem (c) by guenter kramer   =
  5. 8040 rem        emsdetten        =
  6. 8050 rem                         =
  7. 8060 rem basic 2.0  40z/ascii    =
  8. 8070 rem c64 + 1530/1541/1571    =
  9. 8080 rem =========================
  10. 8090 s=0
  11. 8100 a=peek(61)+256*peek(62)
  12. 8110 poke65,aand255
  13. 8120 poke66,a/256
  14. 8130 printchr$(147)"laden assembler"
  15. 8140 fori=0to2
  16. 8150 reada
  17. 8160 s=s+a
  18. 8170 ad(i)=a
  19. 8180 next
  20. 8190 reada
  21. 8200 ifs=athen8230
  22. 8210 print"fehler in pruefsummen"
  23. 8220 end
  24. 8230 an=49152
  25. 8240 en=49783
  26. 8250 s=0
  27. 8260 forj=0to2
  28. 8270 a=an+256*j
  29. 8280 e=a+255
  30. 8290 ife>enthene=en
  31. 8300 fori=atoe
  32. 8310 reada
  33. 8320 d2=peek(63)+256*peek(64)
  34. 8330 ifd1=0thend1=d2
  35. 8340 if(a<0)or(a>255)then8410
  36. 8350 ifa-int(a)<>0then8410
  37. 8360 s=s+a
  38. 8370 pokei,a:next
  39. 8380 ifs<>ad(j)then8440
  40. 8390 print"teil"j"in ordnung"
  41. 8400 goto8460
  42. 8410 print"datafehler in zeile"s
  43. 8420 print"falscher wert ="a
  44. 8430 end
  45. 8440 print"datafehler zeilen"d1"-"d2
  46. 8450 end
  47. 8460 d1=0
  48. 8470 s=0
  49. 8480 next
  50. 8490 goto8530
  51. 8500 rem *************************
  52. 8510 rem  save maschinenprogramm *
  53. 8520 rem *************************
  54. 8530 print
  55. 8540 print"save maschinenprogramm"
  56. 8550 print
  57. 8560 print"adresse ? 1 = kassette"
  58. 8570 printtab(8)"8/9 = diskette"
  59. 8580 poke198,0
  60. 8590 geta$:ifa$=""then8590
  61. 8600 ifa$="1"then8620
  62. 8610 if(a$<"8")or(a$>"9")then8590
  63. 8620 poke2,val(a$)
  64. 8630 fori=0to3
  65. 8640 poke251+i,peek(43+i)
  66. 8650 next
  67. 8660 poke43,0
  68. 8670 poke44,192
  69. 8680 poke45,120
  70. 8690 poke46,194
  71. 8700 save"m.p. kreuzungen",peek(2)
  72. 8710 poke43,peek(251)
  73. 8720 poke44,peek(252)
  74. 8730 poke45,peek(253)
  75. 8740 poke46,peek(254)
  76. 8750 ifpeek(2)=1thenend
  77. 8760 print
  78. 8770 open1,8,15
  79. 8780 get#1,a$
  80. 8790 get#1,b$
  81. 8800 if(a$="0")and(b$="0")then8900
  82. 8810 printa$;b$;
  83. 8820 get#1,a$
  84. 8830 printa$;
  85. 8840 ifst<>64then8820
  86. 8850 close1
  87. 8860 print"floppy ok?[160](j/e)"
  88. 8870 print"e = ende, nicht speichern"
  89. 8880 geta$:ifa$="j"then8660
  90. 8890 ifa$<>"e"then8880
  91. 8900 close1:end
  92. 8910 rem *************************
  93. 8920 rem ***** datas pruefsummen *
  94. 8930 rem *************************
  95. 8940 data 33564,37291,5505,76360
  96. 8950 rem *************************
  97. 8960 rem datas maschinenprogramm *
  98. 8970 rem *************************
  99. 8980 data 076,006,192,076,100,192
  100. 8981 data 032,160,229,120,169,003
  101. 8982 data 141,020,003,169,192,141
  102. 8990 data 021,003,169,248,141,018
  103. 8991 data 208,173,017,208,041,127
  104. 8992 data 141,017,208,169,129,141
  105. 9000 data 026,208,088,169,000,141
  106. 9001 data 118,192,169,024,141,000
  107. 9002 data 208,141,002,208,169,088
  108. 9010 data 141,004,208,141,006,208
  109. 9011 data 169,152,141,008,208,141
  110. 9012 data 010,208,169,216,141,012
  111. 9020 data 208,141,014,208,169,255
  112. 9021 data 141,023,208,141,029,208
  113. 9022 data 169,194,133,252,169,000
  114. 9030 data 160,000,133,251,145,251
  115. 9031 data 200,208,251,096,173,025
  116. 9032 data 208,141,025,208,048,007
  117. 9040 data 173,013,220,088,076,049
  118. 9041 data 234,162,000,240,006,076
  119. 9042 data 137,192,076,159,192,076
  120. 9043 data 181,192,076,195,192,076
  121. 9050 data 209,192,076,223,192,173
  122. 9051 data 017,208,041,247,141,017
  123. 9052 data 208,169,003,141,118,192
  124. 9060 data 162,000,169,000,160,254
  125. 9061 data 076,237,192,173,017,208
  126. 9062 data 009,008,141,017,208,169
  127. 9070 data 006,141,118,192,162,048
  128. 9071 data 169,032,160,008,076,237
  129. 9072 data 192,169,009,141,118,192
  130. 9080 data 160,057,169,064,162,096
  131. 9081 data 076,237,192,169,012,141
  132. 9082 data 118,192,160,105,169,096
  133. 9090 data 162,144,076,237,192,169
  134. 9091 data 015,141,118,192,160,153
  135. 9092 data 169,128,162,192,076,237
  136. 9100 data 192,169,000,141,118,192
  137. 9101 data 160,201,169,160,162,248
  138. 9102 data 076,237,192,140,001,208
  139. 9110 data 140,003,208,140,005,208
  140. 9111 data 140,007,208,140,009,208
  141. 9112 data 140,011,208,140,013,208
  142. 9120 data 140,015,208,142,018,208
  143. 9121 data 160,000,133,251,177,251
  144. 9122 data 141,021,208,200,177,251
  145. 9130 data 153,038,208,200,192,009
  146. 9131 data 208,246,177,251,153,239
  147. 9132 data 007,200,192,017,208,246
  148. 9140 data 076,188,254,120,169,051
  149. 9141 data 133,001,169,208,160,000
  150. 9142 data 133,096,132,095,132,090
  151. 9150 data 132,088,169,216,133,091
  152. 9151 data 169,208,133,089,032,191
  153. 9152 data 163,169,055,133,001,088
  154. 9153 data 096,169,000,168,153,064
  155. 9160 data 062,153,000,063,200,208
  156. 9161 data 247,162,000,169,194,141
  157. 9162 data 245,193,160,064,169,062
  158. 9170 data 141,248,193,032,235,193
  159. 9171 data 162,030,160,128,032,235
  160. 9172 data 193,160,192,032,235,193
  161. 9180 data 162,060,160,000,238,248
  162. 9181 data 193,032,235,193,160,064
  163. 9182 data 032,235,193,162,090,160
  164. 9190 data 128,032,235,193,160,192
  165. 9191 data 032,235,193,169,024,141
  166. 9192 data 217,062,141,089,063,141
  167. 9200 data 217,063,169,060,141,220
  168. 9201 data 062,141,092,063,141,220
  169. 9202 data 063,160,000,185,064,062
  170. 9210 data 153,121,062,200,192,003
  171. 9211 data 208,245,238,168,193,238
  172. 9212 data 168,193,238,168,193,206
  173. 9220 data 171,193,206,171,193,206
  174. 9221 data 171,193,173,168,193,041
  175. 9222 data 015,201,014,208,216,173
  176. 9230 data 168,193,024,105,034,208
  177. 9231 data 006,238,169,193,238,172
  178. 9232 data 193,141,168,193,009,057
  179. 9240 data 141,171,193,173,169,193
  180. 9241 data 201,064,208,187,096,142
  181. 9242 data 244,193,140,247,193,160
  182. 9250 data 029,185,093,194,153,192
  183. 9251 data 063,136,016,247,096,238
  184. 9252 data 238,238,000,024,000,028
  185. 9260 data 060,056,031,126,248,031
  186. 9261 data 126,248,015,189,240,015
  187. 9262 data 189,240,003,219,192,012
  188. 9270 data 219,048,031,060,248,063
  189. 9271 data 255,252,000,024,000,028
  190. 9272 data 036,056,017,066,136,017
  191. 9273 data 066,136,008,165,016,008
  192. 9280 data 165,016,002,090,064,012
  193. 9281 data 000,048,016,000,008,032
  194. 9282 data 000,004,000,000,000,000
  195. 9283 data 000,000,000,024,000,006
  196. 9290 data 024,096,006,000,096,000
  197. 9291 data 000,000,000,000,000,000
  198. 9292 data 000,000,000,000,000,012
  199. 9293 data 000,048,000,000,000,000
  200. 9294 data 000,000,000,024,000,003
  201. 9300 data 102,192,004,000,032,004
  202. 9301 data 000,032,000,000,000,004
  203. 9302 data 000,032,004,000,032,008
  204. 9303 data 000,016
  205. 9310 rem lader kreuzungen ======64
  206. 9320 rem 038911 bytes memory     =
  207. 9330 rem 005271 bytes program    =
  208. 9340 rem 000007 bytes variables  =
  209. 9350 rem 000000 bytes arrays     =
  210. 9360 rem 000000 bytes strings    =
  211. 9370 rem 034403 bytes free(0)    =
  212. 9380 rem =========================
  213. 9390 rem 000632 bytes assembler  =
  214. 9400 rem =========================
  215.